perm filename FASLAP.DIF[MAC,LSP] blob
sn#281504 filedate 1977-05-08 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00009 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00003 00002 1) FASLAP.LAP[MAC,LSP] and 2) FASLAP.LP[MAC,LSP] 5-08-77 00:22 pages 1,1
C00007 00003 1) FASLAP.LAP[MAC,LSP] and 2) FASLAP.LP[MAC,LSP] 5-08-77 00:22 pages 1,1
C00011 00004 1) FASLAP.LAP[MAC,LSP] and 2) FASLAP.LP[MAC,LSP] 5-08-77 00:22 pages 5,6
C00013 00005 1) FASLAP.LAP[MAC,LSP] and 2) FASLAP.LP[MAC,LSP] 5-08-77 00:22 pages 5,6
C00015 00006 1) FASLAP.LAP[MAC,LSP] and 2) FASLAP.LP[MAC,LSP] 5-08-77 00:22 pages 5,6
C00017 00007 1) FASLAP.LAP[MAC,LSP] and 2) FASLAP.LP[MAC,LSP] 5-08-77 00:22 pages 5,6
C00019 00008 1) FASLAP.LAP[MAC,LSP] and 2) FASLAP.LP[MAC,LSP] 5-08-77 00:22 pages 7,8
C00021 00009 1) FASLAP.LAP[MAC,LSP] and 2) FASLAP.LP[MAC,LSP] 5-08-77 00:22 pages 9,10
C00022 ENDMK
C⊗;
1) FASLAP.LAP[MAC,LSP] and 2) FASLAP.LP[MAC,LSP] 5-08-77 00:22 pages 1,1
**** File 1) FASLAP.LAP[MAC,LSP], Page 1 line 2
1) '(THIS IS THE LAP FOR (FASLAP /285 DSK COMLAP))
1) '(COMPILED BY LISP COMPILER /694)
1) ;COMPILED ON MONDAY, JANUARY 3, 1977, AT 5:14 PM
1) (AND (STATUS FEATURE DEC10) (STATUS FEATURE BIBOP) (ALLOC '(FIXNUM (2000 20000 1000) FLONUM (1000 10000 400) BIGNUM (1000 10000 400) SYMBOL (4000 20000 0.25) ARRAY (1000 2000 100))))
1) (FASLAPSETUP/| T)(DECLARE (EVAL (READ)))(PROGN (PUTPROP 'FSTARTER (SUBST (COND ((STATUS FEATURE NEWIO) (CADDR (TRUENAME INFILE))) ((STATUS UREAD) (CADR (STATUS UREAD))) ('/285)) 'N '(LAMBDA (X) ''N)) 'MACRO) (DEFPROP IMOBFL 200 SYM) (SETSYNTAX '/] 'SPLICING (FUNCTION (LAMBDA NIL NIL))) (SETSYNTAX '/[ 'SPLICING (FUNCTION (LAMBDA NIL ((LAMBDA (IF FLAG) (COND ((EQ IF 'IFE)) ((EQ IF 'IFN) (SETQ IF NIL)) ((EQ IF 'IFP) (SETQ IF (EVAL FLAG) FLAG NIL)) ((BREAK LOSING-IF T))) (OR (MEMQ FLAG (STATUS FEATURES)) (SETQ IF (NOT IF))) (AND IF (DO ((Z (TYI) (TYI)) (N 1)) ((ZEROP N)) (COND ((= Z '133) (SETQ N (1+ N))) ((= Z '135) (SETQ N (1- N))))))) (READ) (READ)) NIL))) (SETSYNTAX '/# 'MACRO '(LAMBDA NIL (COND ((= (TYIPEEK) 43) (TYI) (EVAL (READ))) (T ((LAMBDA (DATA FFVL) (AND (SETQ FFVL (GET (CAR DATA) 'MACRO)) (SETQ DATA (FUNCALL FFVL DATA))) DATA) (READ) NIL))))))
1) (LAP FASLAPBARF SUBR)
**** File 2) FASLAP.LP[MAC,LSP], Page 1 line 1
2) COMMENT ⊗ VALID 00039 PAGES
2) C REC PAGE DESCRIPTION
2) C00001 00001
2) C00003 00002
2) C00008 00003
2) C00009 00004 (SETQ FASLVERNO '/288)
2) C00010 00005
2) C00018 00006
2) C00023 00007
2) C00030 00008
2) C00034 00009
2) C00035 00010
2) C00041 00011
2) C00049 00012
2) C00051 00013
2) C00063 00014
2) C00064 00015
2) C00072 00016
2) C00077 00017
2) C00082 00018
2) C00083 00019
2) C00084 00020
2) C00086 00021
2) C00087 00022
2) C00089 00023
2) C00092 00024
2) C00094 00025
2) C00096 00026
2) C00099 00027
2) C00100 00028
2) C00101 00029
2) C00102 00030
2) C00105 00031
2) C00113 00032
2) C00114 00033
2) C00127 00034
2) C00129 00035
2) C00130 00036
2) C00131 00037
2) C00132 00038 (AND (STATUS FEATURE NEWIO) (DEFPROP UTIN 0 SYM) (DEFPROP UINITA 0 SYM))
1) FASLAP.LAP[MAC,LSP] and 2) FASLAP.LP[MAC,LSP] 5-08-77 00:22 pages 1,1
2) C00139 00039
2) C00140 ENDMK
2) C⊗;
2) '(THIS IS THE LAP FOR (FASLAP /288 DSK COMLAP))
2) '(COMPILED BY LISP COMPILER /703)
2) ;COMPILED ON SUNDAY, MAY 8, 1977, AT 3:13 AM
2) (AND (STATUS FEATURE DEC10) (STATUS FEATURE BIBOP) (ALLOC '(FIXNUM (2000 20000 1000) FLONUM (1000 10000 400) BIGNUM (1000 10000 400) SYMBOL (4000 20000 0.25) ARRAY (1000 2000 100))))
2) (FASLAPSETUP/| T)(DECLARE (EVAL (READ)))(PROGN (PUTPROP 'FSTARTER (SUBST (COND ((STATUS FEATURE NEWIO) (CADDR (TRUENAME INFILE))) ((STATUS UREAD) (CADR (STATUS UREAD))) ('/288)) 'N '(LAMBDA (X) ''N)) 'MACRO) (DEFPROP IMOBFL 200 SYM) (SETSYNTAX '/] 'SPLICING (FUNCTION (LAMBDA NIL NIL))) (SETSYNTAX '/[ 'SPLICING (FUNCTION (LAMBDA NIL ((LAMBDA (IF FLAG) (COND ((EQ IF 'IFE)) ((EQ IF 'IFN) (SETQ IF NIL)) ((EQ IF 'IFP) (SETQ IF (EVAL FLAG) FLAG NIL)) ((BREAK LOSING-IF T))) (OR (MEMQ FLAG (STATUS FEATURES)) (SETQ IF (NOT IF))) (AND IF (DO ((Z (TYI) (TYI)) (N 1)) ((ZEROP N)) (COND ((= Z '133) (SETQ N (1+ N))) ((= Z '135) (SETQ N (1- N))))))) (READ) (READ)) NIL))) (SETSYNTAX '/# 'MACRO '(LAMBDA NIL (COND ((= (TYIPEEK) 43) (TYI) (EVAL (READ))) (T ((LAMBDA (DATA FFVL) (AND (SETQ FFVL (GET (CAR DATA) 'MACRO)) (SETQ DATA (FUNCALL FFVL DATA))) DATA) (READ) NIL))))))
2) (LAP FASLAPBARF SUBR)
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 3 line 1
1) (SETQ FASLVERNO '/285)
1) (LAP FASLVERNO SUBR)
1) (ARGS FASLVERNO (NIL . 0))
1) (STRT 0 (% SIXBIT |FASLAP ASSEMBLER 285 !|))
1) (MOVEI 1 'NIL)
**** File 2) FASLAP.LP[MAC,LSP], Page 4 line 1
2) (SETQ FASLVERNO '/288)
2) (LAP FASLVERNO SUBR)
2) (ARGS FASLVERNO (NIL . 0))
2) (STRT 0 (% SIXBIT |FASLAP ASSEMBLER 288 !|))
2) (MOVEI 1 'NIL)
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 5 line 44
1) (SKIPN 1 (SPECIAL NIOP/|))
1) (JRST 0 G0010)
1) (MOVE 2 (SPECIAL CMSGFILES))
1) (MOVE 1 (SPECIAL UFFIL))
1) (CALL 2 'CONS)
1) (MOVEM 1 (SPECIAL CMSGFILES))
1) G0010
1) (MOVE 1 -21 P)
**** File 2) FASLAP.LP[MAC,LSP], Page 6 line 44
2) (MOVE 1 -21 P)
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 5 line 56
1) (JRST 0 G0014)
1) (HLRZ 1 0 1)
**** File 2) FASLAP.LP[MAC,LSP], Page 6 line 49
2) (JRST 0 G0012)
2) (HLRZ 1 0 1)
***************
1) FASLAP.LAP[MAC,LSP] and 2) FASLAP.LP[MAC,LSP] 5-08-77 00:22 pages 5,6
**** File 1) FASLAP.LAP[MAC,LSP], Page 5 line 68
1) (MOVEI T G0019)
1) (PUSH P T)
**** File 2) FASLAP.LP[MAC,LSP], Page 6 line 61
2) (MOVEI T G0017)
2) (PUSH P T)
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 5 line 73
1) G0019
1) (PUSH P 1)
**** File 2) FASLAP.LP[MAC,LSP], Page 6 line 66
2) G0017
2) (PUSH P 1)
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 5 line 77
1) (JRST 0 G0022)
1) (MOVE 1 0 P)
1) (CAMN 1 -17 P)
1) (JRST 0 G0022)
1) (MOVEI 2 'NIL)
**** File 2) FASLAP.LP[MAC,LSP], Page 6 line 70
2) (JRST 0 G0020)
2) (MOVE 1 0 P)
2) (CAMN 1 -17 P)
2) (JRST 0 G0020)
2) (MOVEI 2 'NIL)
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 5 line 84
1) (JRST 0 G0024)
1) (MOVEI T G0025)
1) (PUSH P T)
**** File 2) FASLAP.LP[MAC,LSP], Page 6 line 77
2) (JRST 0 G0022)
2) (MOVEI T G0023)
2) (PUSH P T)
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 5 line 90
1) G0025
1) FASLAP.LAP[MAC,LSP] and 2) FASLAP.LP[MAC,LSP] 5-08-77 00:22 pages 5,6
1) (JRST 0 G0023)
1) G0024
1) (MOVEI 1 'NIL)
1) G0023
1) (MOVEM 1 0 P)
1) (JRST 0 G0004)
1) G0022
1) (SUB P (% 0 0 1 1))
**** File 2) FASLAP.LP[MAC,LSP], Page 6 line 83
2) G0023
2) (JRST 0 G0021)
2) G0022
2) (MOVEI 1 'NIL)
2) G0021
2) (MOVEM 1 0 P)
2) (JRST 0 G0004)
2) G0020
2) (SUB P (% 0 0 1 1))
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 5 line 102
1) G0014
1) (SUB P (% 0 0 1 1))
**** File 2) FASLAP.LP[MAC,LSP], Page 6 line 95
2) G0012
2) (SUB P (% 0 0 1 1))
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 5 line 112
1) (JRST 0 G0031)
1) (SKIPN 2 (SPECIAL FBARP))
1) (JRST 0 G0029)
1) G0031
1) (MOVEI 2 '/|FL1)
**** File 2) FASLAP.LP[MAC,LSP], Page 6 line 105
2) (JRST 0 G0029)
2) (SKIPN 2 (SPECIAL FBARP))
2) (JRST 0 G0027)
2) G0029
2) (MOVEI 2 '/|FL1)
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 5 line 120
1) (JRST 0 G0032)
1) G0007
1) FASLAP.LAP[MAC,LSP] and 2) FASLAP.LP[MAC,LSP] 5-08-77 00:22 pages 5,6
1) (MOVEI T G0035)
1) (PUSH P T)
**** File 2) FASLAP.LP[MAC,LSP], Page 6 line 113
2) (JRST 0 G0030)
2) G0007
2) (MOVEI T G0033)
2) (PUSH P T)
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 5 line 127
1) G0035
1) (CAMN 1 0 P)
1) (JRST 0 G0034)
1) (JRST 0 G0007)
1) G0034
1) G0032
1) (SETZM 0 -1 P)
1) G0029
1) (MOVE 3 -5 P)
**** File 2) FASLAP.LP[MAC,LSP], Page 6 line 120
2) G0033
2) (CAMN 1 0 P)
2) (JRST 0 G0032)
2) (JRST 0 G0007)
2) G0032
2) G0030
2) (SETZM 0 -1 P)
2) G0027
2) (MOVE 3 -5 P)
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 5 line 140
1) (JRST 0 G0037)
1) (JSP T SPECBIND)
**** File 2) FASLAP.LP[MAC,LSP], Page 6 line 133
2) (JRST 0 G0035)
2) (JSP T SPECBIND)
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 5 line 146
1) (JUMPN 1 G0039)
1) (HLRZ 1 @ -4 P)
1) (JRST 0 G0038)
1) G0039
1) (MOVE 1 -4 P)
1) FASLAP.LAP[MAC,LSP] and 2) FASLAP.LP[MAC,LSP] 5-08-77 00:22 pages 5,6
1) G0038
1) (CALL 1 'PRIN1)
**** File 2) FASLAP.LP[MAC,LSP], Page 6 line 139
2) (JUMPN 1 G0037)
2) (HLRZ 1 @ -4 P)
2) (JRST 0 G0036)
2) G0037
2) (MOVE 1 -4 P)
2) G0036
2) (CALL 1 'PRIN1)
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 5 line 158
1) G0037
1) (MOVEI 1 'NIL)
**** File 2) FASLAP.LP[MAC,LSP], Page 6 line 151
2) G0035
2) (MOVEI 1 'NIL)
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 7 line 38
1) (JUMPE 1 G0007)
1) (MOVEI T G0017)
1) (PUSH P T)
1) (HLRZ 1 0 1)
1) (PUSH P 1)
**** File 2) FASLAP.LP[MAC,LSP], Page 8 line 38
2) (MOVE 2 (SPECIAL CMSGFILES))
2) (HLRZ 1 0 1)
2) (CALL 2 'CONS)
2) (MOVEM 1 (SPECIAL CMSGFILES))
2) (JUMPE 1 G0007)
2) (MOVEI T G0019)
2) (PUSH P T)
2) (HLRZ 1 @ (SPECIAL UFFIL))
2) (PUSH P 1)
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 7 line 46
1) G0017
1) G0007
1) (MOVEI T G0019)
1) (PUSH P T)
**** File 2) FASLAP.LP[MAC,LSP], Page 8 line 50
2) G0019
1) FASLAP.LAP[MAC,LSP] and 2) FASLAP.LP[MAC,LSP] 5-08-77 00:22 pages 7,8
2) G0007
2) (MOVEI T G0021)
2) (PUSH P T)
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 7 line 60
1) G0019
1) (MOVEM 1 (SPECIAL IMOSAR))
**** File 2) FASLAP.LP[MAC,LSP], Page 8 line 64
2) G0021
2) (MOVEM 1 (SPECIAL IMOSAR))
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 7 line 65
1) (JRST 0 G0025)
1) (MOVE 1 (SPECIAL MSDIR))
**** File 2) FASLAP.LP[MAC,LSP], Page 8 line 69
2) (JRST 0 G0027)
2) (MOVE 1 (SPECIAL MSDIR))
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 7 line 73
1) G0025
1) (MOVEI 2 'T)
**** File 2) FASLAP.LP[MAC,LSP], Page 8 line 77
2) G0027
2) (MOVEI 2 'T)
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 8 line 11
1) (STRT 0 (% SIXBIT |)↑M'(ASSEMBLED BY FASLAP 285)↑M!|))
1) (PUSHJ P UNBIND)
**** File 2) FASLAP.LP[MAC,LSP], Page 9 line 11
2) (STRT 0 (% SIXBIT |)↑M'(ASSEMBLED BY FASLAP 288)↑M!|))
2) (PUSHJ P UNBIND)
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 9 line 52
1) (CALL 2 'RENAME)
1) (MOVE 1 (SPECIAL IMOSAR))
**** File 2) FASLAP.LP[MAC,LSP], Page 10 line 52
2) (CALL 2 'RENAMEF)
2) (MOVE 1 (SPECIAL IMOSAR))
1) FASLAP.LAP[MAC,LSP] and 2) FASLAP.LP[MAC,LSP] 5-08-77 00:22 pages 9,10
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 9 line 75
1) (CALL 2 'RENAME)
1) (HLRZ 1 @ (SPECIAL UFFIL))
**** File 2) FASLAP.LP[MAC,LSP], Page 10 line 75
2) (CALL 2 'RENAMEF)
2) (HLRZ 1 @ (SPECIAL UFFIL))
***************
**** File 1) FASLAP.LAP[MAC,LSP], Page 9 line 154
1) (CALL 2 'RENAME)
1) (HLRZ 1 @ (SPECIAL UFFIL))
**** File 2) FASLAP.LP[MAC,LSP], Page 10 line 154
2) (CALL 2 'RENAMEF)
2) (HLRZ 1 @ (SPECIAL UFFIL))
***************